home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Demoversionen / Anwendungen / TProspEd / Installa < prev    next >
Text File  |  2000-04-12  |  2KB  |  63 lines
  1. ;
  2. ; $VER: Script di Installazione di ProspEd v1.0 (c) David Lo Buglio (29.03.00)
  3. ;
  4.  
  5. (set @default-dest "Work:")
  6. (set #wrongOS  "ProspEd necessita dell'OS2.0 o superiore\n")
  7. (set #TGest_dir       (cat "Scegli il cassetto o la partizione\n"
  8.                            "dove installare il cassetto TGest.\n\n"
  9.                            "Se il cassetto esiste già, allora seleziona\n"
  10.                            "il cassetto o la partizione che lo contiene\n"))
  11.  
  12. (set #done (cat "\nProspEd è stato installato con successo.\n\n"))
  13.  
  14. (set OS_ver (getversion "exec.library" (resident)))
  15. (if (< OS_ver (* 37 65536)) (abort #wrongOS))
  16.  
  17. (complete 0)
  18.  
  19. (set TGest_def_dir @default-dest)
  20.  
  21. (set TGest_dir
  22.         (askdir
  23.                 (default TGest_def_dir)
  24.                 (prompt  #TGest_dir)
  25.                 (help    @askdir-help)
  26.         )
  27. )
  28.  
  29. (set TGest_dir (tackon TGest_dir "TGest"))
  30.  
  31. (if (not (exists TGest_dir))
  32.         (makedir TGest_dir (infos))
  33. )
  34.  
  35. (if (NOT (exists (tackon TGest_dir "Doc")))
  36.    (
  37.       (makedir (tackon TGest_dir "Doc") (infos))
  38.    )
  39. )
  40.  
  41. (if (NOT (exists (tackon TGest_dir "Prospetti")))
  42.    (
  43.       (makedir (tackon TGest_dir "Prospetti"))
  44.    )
  45. )
  46. (complete 20)
  47.  
  48. (set Doc_dir (tackon TGest_dir "Doc"))
  49. (set Pro_dir (tackon TGest_dir "Prospetti"))
  50.  
  51. (copyfiles (source "ProspEd")    (dest TGest_dir) (infos) (help @copyfiles-help))
  52. (complete 80)
  53.  
  54. (copyfiles (source "Prospetti/") (dest Pro_dir) (all)   (help @copyfiles-help))
  55. (complete 90)
  56.  
  57. (copyfiles (source "Doc/")       (dest Doc_dir) (all) (help @copyfiles-help))
  58. (complete 100)
  59.  
  60. (message #done "\"" TGest_dir "\"")
  61.  
  62. (exit (QUIET))
  63.